home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 September
/
Chip_2001-09_cd1.bin
/
ctenari
/
Kalina
/
PePa MP3 Encoder.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
2001-07-09
|
30KB
|
1,156 lines
object Form1: TForm1
Left = 159
Top = 118
Width = 640
Height = 398
ActiveControl = DirectoryListBox1
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'PePa MP3 Encoder'
Color = clBtnFace
Constraints.MinHeight = 398
Constraints.MinWidth = 640
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCanResize = FormCanResize
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = DirectoryListBox1KeyDown
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 23
Width = 447
Height = 329
Align = alClient
BevelOuter = bvNone
TabOrder = 4
object Panel4: TPanel
Left = 201
Top = 45
Width = 75
Height = 284
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
OnMouseMove = Panel4MouseMove
object SpeedButton1: TBUSpeedButton
Left = 0
Top = 174
Width = 76
Height = 25
Cursor = crHandPoint
Caption = 'Start !'
Enabled = False
OnClick = SpeedButton1Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clGreen
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = []
OnMouseEnter = SpeedButton1MouseEnter
OnMouseLeave = Button2MouseLeave
end
object Button2: TBUSpeedButton
Left = 0
Top = 0
Width = 76
Height = 25
Cursor = crHandPoint
Caption = '--->'
OnClick = Button2Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = Button2MouseEnter
OnMouseLeave = Button2MouseLeave
end
object Button3: TBUSpeedButton
Left = 0
Top = 24
Width = 76
Height = 25
Cursor = crHandPoint
Caption = '<---'
OnClick = Button3Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = Button3MouseEnter
OnMouseLeave = Button2MouseLeave
end
object Button1: TBUSpeedButton
Left = 0
Top = 48
Width = 76
Height = 25
Cursor = crHandPoint
Caption = 'v�echno --->'
OnClick = Button1Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = Button1MouseEnter
OnMouseLeave = Button2MouseLeave
end
object Button4: TBUSpeedButton
Left = 0
Top = 72
Width = 76
Height = 25
Cursor = crHandPoint
Caption = '<--- v�echno'
OnClick = Button4Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = Button4MouseEnter
OnMouseLeave = Button2MouseLeave
end
end
object Panel5: TPanel
Left = 276
Top = 45
Width = 171
Height = 284
Align = alClient
BevelOuter = bvNone
Caption = 'Panel5'
TabOrder = 1
object ListBox1: TListBox
Left = 0
Top = 0
Width = 171
Height = 284
Align = alClient
ItemHeight = 13
TabOrder = 0
OnDblClick = ListBox1DblClick
OnKeyDown = DirectoryListBox1KeyDown
OnMouseMove = ListBox1MouseMove
end
end
object Panel3: TPanel
Left = 0
Top = 45
Width = 201
Height = 284
Align = alLeft
BevelOuter = bvNone
Caption = 'Panel3'
TabOrder = 2
object FileListBox1: TFileListBox
Left = 0
Top = 0
Width = 201
Height = 284
Align = alClient
FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
ItemHeight = 13
Mask = '*.wav'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = FileListBox1Click
OnDblClick = FileListBox1DblClick
OnKeyDown = DirectoryListBox1KeyDown
OnMouseMove = FileListBox1MouseMove
end
end
object Panel9: TPanel
Left = 0
Top = 0
Width = 447
Height = 45
Align = alTop
BevelOuter = bvNone
TabOrder = 3
object Panel10: TPanel
Left = 0
Top = 0
Width = 277
Height = 45
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object dirlabel: TBULabel
Left = 0
Top = 21
Width = 277
Height = 24
Align = alClient
AutoSize = False
Caption = 'C:\'
ParentShowHint = False
ShowHint = True
Layout = tlCenter
OnMouseMove = Panel8MouseMove
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clWindowText
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = []
end
object DirectoryListBox1: TLsDirTreeCombo26
Left = 0
Top = 0
Width = 277
Height = 21
Align = alTop
Glyph.Data = {
62010000424D620100000000000042000000280000000C0000000C0000000100
1000030000002001000000000000000000000000000000000000007C0000E003
00001F000000596B596B596B596B596B596B596B596B596B596B596B596B596B
596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B
596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B
596B596B596B596B596B596B596B596B0000596B596B596B596B596B596B596B
596B596B596B000000000000596B596B596B596B596B596B596B596B00000000
000000000000596B596B596B596B596B596B0000000000000000000000000000
596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B
596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B
596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B596B
596B596B596B}
ReadOnly = True
TabOrder = 0
TreeHeight = 240
OnChange = DirectoryListBox1Click
OnMouseMove = Panel8MouseMove
end
end
object Panel11: TPanel
Left = 277
Top = 0
Width = 170
Height = 45
Align = alClient
BevelOuter = bvNone
TabOrder = 1
OnMouseMove = Panel8MouseMove
object Label6: TLabel
Left = 0
Top = 14
Width = 170
Height = 16
Align = alTop
Alignment = taCenter
AutoSize = False
Visible = False
OnMouseMove = Panel8MouseMove
end
object Label3: TLabel
Left = 0
Top = 0
Width = 170
Height = 14
Align = alTop
Alignment = taCenter
AutoSize = False
Visible = False
WordWrap = True
OnMouseMove = Panel8MouseMove
end
object Label4: TLabel
Left = 0
Top = 30
Width = 170
Height = 13
Align = alTop
Alignment = taCenter
AutoSize = False
Visible = False
OnMouseMove = Panel8MouseMove
end
end
end
end
object Panel1: TPanel
Left = 0
Top = 352
Width = 632
Height = 19
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object hintl: TBULabel
Left = 0
Top = 1
Width = 441
Height = 17
Alignment = taCenter
Anchors = [akLeft, akRight]
AutoSize = False
Caption = 'PePa MP3 Encoder'
Color = clBtnFace
ParentColor = False
Layout = tlCenter
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clWindowText
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = []
end
object SpeedButton3: TBUSpeedButton
Left = 447
Top = 0
Width = 186
Height = 20
Cursor = crHandPoint
Anchors = [akTop, akRight]
Caption = 'O programu...'
OnClick = SpeedButton3Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = SpeedButton3MouseEnter
OnMouseLeave = Button2MouseLeave
end
object Bevel2: TBevel
Left = 2
Top = 1
Width = 441
Height = 18
Anchors = [akLeft, akRight]
Shape = bsFrame
end
end
object Panel6: TPanel
Left = 447
Top = 23
Width = 185
Height = 329
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object Label8: TLabel
Left = 4
Top = 156
Width = 61
Height = 15
Alignment = taRightJustify
AutoSize = False
Caption = 'Re�im'
WordWrap = True
end
object Label7: TLabel
Left = 4
Top = 125
Width = 61
Height = 24
Alignment = taRightJustify
AutoSize = False
Caption = 'Vzorkovac� frekvence'
WordWrap = True
end
object Label9: TLabel
Left = 34
Top = 182
Width = 32
Height = 13
Caption = 'Kvalita'
end
object crc: TBUCheckBox
Left = 3
Top = 234
Width = 42
Height = 17
Cursor = crHandPoint
Caption = 'CRC'
TabOrder = 6
OnClick = crcClick
AutoSize = False
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = crcMouseEnter
OnMouseLeave = Button2MouseLeave
end
object ori: TBUCheckBox
Left = 3
Top = 218
Width = 56
Height = 16
Cursor = crHandPoint
Caption = 'Original'
Checked = True
State = cbChecked
TabOrder = 5
OnClick = oriClick
AutoSize = False
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = oriMouseEnter
OnMouseLeave = Button2MouseLeave
end
object cop: TBUCheckBox
Left = 3
Top = 201
Width = 65
Height = 17
Cursor = crHandPoint
Caption = 'Copyright'
TabOrder = 4
OnClick = copClick
AutoSize = False
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = copMouseEnter
OnMouseLeave = Button2MouseLeave
end
object mode: TComboBox
Left = 68
Top = 153
Width = 108
Height = 21
Cursor = crHandPoint
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
OnChange = modeChange
OnKeyDown = DirectoryListBox1KeyDown
Items.Strings = (
'Stereo'
'Joint stereo'
'Dual channel'
'Mono')
end
object sr: TComboBox
Left = 68
Top = 128
Width = 108
Height = 21
Cursor = crHandPoint
Hint =
'Zm�nt� frekvenci jen kdy� je zdrojov� soubor m� jinou frekvenci ' +
'ne� 44100'
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnChange = srChange
OnKeyDown = DirectoryListBox1KeyDown
Items.Strings = (
'44100'
'32000'
'22050')
end
object ComboBox1: TComboBox
Left = 68
Top = 178
Width = 108
Height = 21
Cursor = crHandPoint
Hint =
'P�i zm�n� kvality se nem�n� velikost v�sledn�ho souboru, ale ryc' +
'hlost komprese.'
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnChange = ComboBox1Change
Items.Strings = (
'Norm�ln�'
'N�zk�'
'Vysok�'
'Hlas')
end
object GroupBox1: TGroupBox
Left = 2
Top = 267
Width = 183
Height = 60
Caption = 'VBR'
TabOrder = 3
object Label10: TLabel
Left = 2
Top = 40
Width = 57
Height = 13
Caption = 'Kvalita VBR'
end
object Label11: TLabel
Left = 166
Top = 40
Width = 6
Height = 13
Caption = '4'
end
object TrackBar1: TTrackBar
Left = 59
Top = 33
Width = 107
Height = 21
Max = 9
Orientation = trHorizontal
PageSize = 1
Frequency = 1
Position = 4
SelEnd = 0
SelStart = 0
TabOrder = 0
ThumbLength = 10
TickMarks = tmTopLeft
TickStyle = tsAuto
OnChange = TrackBar1Change
end
object CheckBox6: TBUCheckBox
Left = 55
Top = 14
Width = 75
Height = 17
Cursor = crHandPoint
Caption = 'Pou��t VBR'
TabOrder = 1
OnClick = CheckBox6Click
AutoSize = False
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = CheckBox6MouseEnter
OnMouseLeave = Button2MouseLeave
end
end
object pri: TBUCheckBox
Left = 3
Top = 250
Width = 54
Height = 16
Cursor = crHandPoint
Caption = 'Private'
TabOrder = 7
OnClick = priClick
AutoSize = False
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = priMouseEnter
OnMouseLeave = Button2MouseLeave
end
object g: TGroupBox
Left = 4
Top = 4
Width = 179
Height = 117
Caption = 'Datov� tok'
TabOrder = 8
object b32: TBURadioButton
Left = 8
Top = 13
Width = 65
Height = 14
Cursor = crHandPoint
Caption = '32 kBit/s'
TabOrder = 0
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b40: TBURadioButton
Left = 8
Top = 27
Width = 65
Height = 14
Cursor = crHandPoint
Caption = '40 kBit/s'
TabOrder = 1
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b48: TBURadioButton
Left = 8
Top = 41
Width = 65
Height = 14
Cursor = crHandPoint
Caption = '48 kBit/s'
TabOrder = 2
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b56: TBURadioButton
Left = 8
Top = 55
Width = 65
Height = 14
Cursor = crHandPoint
Caption = '56 kBit/s'
TabOrder = 3
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b64: TBURadioButton
Left = 8
Top = 69
Width = 65
Height = 14
Cursor = crHandPoint
Caption = '64 kBit/s'
TabOrder = 4
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b80: TBURadioButton
Left = 8
Top = 83
Width = 65
Height = 14
Cursor = crHandPoint
Caption = '80 kBit/s'
TabOrder = 5
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b96: TBURadioButton
Left = 8
Top = 97
Width = 65
Height = 14
Cursor = crHandPoint
Caption = '96 kBit/s'
TabOrder = 6
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b320: TBURadioButton
Left = 92
Top = 98
Width = 69
Height = 14
Cursor = crHandPoint
Caption = '320 kBit/s'
TabOrder = 7
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b256: TBURadioButton
Left = 92
Top = 84
Width = 69
Height = 14
Cursor = crHandPoint
Caption = '256 kBit/s'
TabOrder = 8
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b224: TBURadioButton
Left = 92
Top = 70
Width = 69
Height = 14
Cursor = crHandPoint
Caption = '224 kBit/s'
TabOrder = 9
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b192: TBURadioButton
Left = 92
Top = 56
Width = 69
Height = 14
Cursor = crHandPoint
Caption = '192 kBit/s'
TabOrder = 10
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b160: TBURadioButton
Left = 92
Top = 42
Width = 69
Height = 14
Cursor = crHandPoint
Caption = '160 kBit/s'
TabOrder = 11
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b128: TBURadioButton
Left = 92
Top = 28
Width = 69
Height = 14
Cursor = crHandPoint
Caption = '128 kBit/s'
Checked = True
TabOrder = 12
TabStop = True
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
object b112: TBURadioButton
Left = 92
Top = 14
Width = 69
Height = 14
Cursor = crHandPoint
Caption = '112 kBit/s'
TabOrder = 13
OnClick = b32Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = b32MouseEnter
OnMouseLeave = Button2MouseLeave
end
end
object GroupBox2: TGroupBox
Left = 76
Top = 201
Width = 107
Height = 68
Caption = 'Po kompresi soubor'
TabOrder = 9
object nemaz: TBURadioButton
Left = 22
Top = 20
Width = 62
Height = 17
Cursor = crHandPoint
Caption = 'Nemazat'
Checked = True
TabOrder = 0
TabStop = True
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
end
object maz: TBURadioButton
Left = 22
Top = 42
Width = 55
Height = 17
Cursor = crHandPoint
Caption = 'Smazat'
TabOrder = 1
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseEnter = mazMouseEnter
OnMouseLeave = Button2MouseLeave
end
end
end
object Panel8: TPanel
Left = 0
Top = 0
Width = 632
Height = 23
Align = alTop
BevelOuter = bvNone
TabOrder = 3
OnMouseMove = Panel8MouseMove
object Label15: TLabel
Left = 148
Top = 5
Width = 43
Height = 13
Caption = 'Hlasitost:'
end
object Label16: TLabel
Left = 341
Top = 5
Width = 35
Height = 13
Caption = 'Pozice:'
end
object label5: TLCD99
Left = 12
Top = 3
Width = 69
Height = 17
Cursor = crHandPoint
Color = clBtnFace
DigitNum = 5
DigitSpacing = 3
OffColor = clBtnFace
OnColor = clWindowText
SegmentSize = 1
Value = '00:00'
OnClick = label5Click
OnMouseMove = label5MouseMove
end
object Player: TMediaPlayer
Left = 85
Top = 1
Width = 57
Height = 20
Cursor = crHandPoint
VisibleButtons = [btPlay, btStop]
TabOrder = 1
OnClick = PlayerClick
OnNotify = PlayerNotify
end
object tb: TTrackBar
Left = 375
Top = 0
Width = 256
Height = 22
Anchors = [akLeft, akTop, akRight, akBottom]
Enabled = False
Orientation = trHorizontal
PageSize = 20
Frequency = 1
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 2
TickMarks = tmBoth
TickStyle = tsNone
OnChange = tbChange
end
object r: TLCD99
Left = -54
Top = 3
Width = 69
Height = 17
Cursor = crHandPoint
Color = clBtnFace
DigitNum = 5
DigitSpacing = 3
OffColor = clBtnFace
OnColor = clWindowText
SegmentSize = 1
Value = '-'
OnClick = label5Click
OnMouseMove = label5MouseMove
end
object StaticText1: TStaticText
Left = 45
Top = 0
Width = 9
Height = 23
Cursor = crHandPoint
Caption = ':'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = label5Click
OnMouseMove = label5MouseMove
end
object TrackBar2: TTrackBar
Left = 191
Top = 0
Width = 150
Height = 22
Max = 255
Orientation = trHorizontal
PageSize = 10
Frequency = 1
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 5
TickMarks = tmBoth
TickStyle = tsNone
OnChange = TrackBar2Change
end
end
object comp: TPanel
Left = 94
Top = 194
Width = 447
Height = 95
Anchors = []
TabOrder = 2
Visible = False
object BUSpeedButton2: TBUSpeedButton
Left = 188
Top = 38
Width = 71
Height = 23
Cursor = crHandPoint
Caption = 'Storno'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = BUSpeedButton2Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clRed
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
OnMouseLeave = Button2MouseLeave
end
object Bevel1: TBevel
Left = 81
Top = 17
Width = 285
Height = 18
end
object Label12: TLabel
Left = 1
Top = 1
Width = 445
Height = 13
Align = alTop
Alignment = taCenter
Caption = 'Prob�h� komprese - '
end
object Gauge1: TBUSpecialProgress
Left = 82
Top = 18
Width = 283
Height = 16
StarTColor = clBlue
EndColor = clNavy
Step = 1
Position = 70
Color = clWhite
Solid = True
TextVisible = True
TextFont.Charset = DEFAULT_CHARSET
TextFont.Color = clYellow
TextFont.Height = -11
TextFont.Name = 'MS Sans Serif'
TextFont.Style = []
HintColor = clWhite
end
object Label13: TLabel
Left = 82
Top = 36
Width = 41
Height = 17
Alignment = taCenter
AutoSize = False
Caption = '00:00'
end
object Label14: TLabel
Left = 325
Top = 36
Width = 41
Height = 17
Alignment = taCenter
AutoSize = False
Caption = '00:00'
end
object BUSpeedButton1: TBUSpeedButton
Left = 115
Top = 66
Width = 217
Height = 23
Cursor = crHandPoint
Caption = 'Minimalizovat do ikony na hlavn�m panelu'
OnClick = BUSpeedButton1Click
HotTrack = True
HotTrackFont.Charset = DEFAULT_CHARSET
HotTrackFont.Color = clBlue
HotTrackFont.Height = -11
HotTrackFont.Name = 'MS Sans Serif'
HotTrackFont.Style = [fsUnderline]
end
end
object Timer1: TTimer
Enabled = False
Interval = 1
OnTimer = Timer1Timer
Left = 362
Top = 50
end
object LameCoder1: TLameCoder
CRC = False
Original = True
DefaultExt = '.mp3'
OnBeginProcess = LameCoder1BeginProcess
OnBeginFile = LameCoder1BeginFile
OnEndFile = LameCoder1EndFile
OnEndProcess = LameCoder1EndProcess
OnProgress = LameCoder1Progress
Left = 506
Top = 212
end
object Timer2: TTimer
Interval = 200
OnTimer = Timer2Timer
Left = 406
Top = 190
end
object Timer3: TTimer
Enabled = False
OnTimer = Timer3Timer
Left = 366
Top = 188
end
object B: TBUSoundControl
Left = 528
Top = 150
end
object CoolTrayIcon1: TCoolTrayIcon
CycleInterval = 0
ShowHint = False
Icon.Data = {<image000.ico>}
IconVisible = False
IconIndex = 0
OnClick = CoolTrayIcon1Click
Left = 108
Top = 206
end
end